home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 088 / catpatch.arc / CATPATCH.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-12-11  |  2.1 KB  |  81 lines
  1. REM       *** CATPATCH (C)opyright 1987 Michael Cleverly ***
  2. REM     RELEASE DATE: 12/03/87 (V1.0) -=- WILDCAT 1.10 Compatible 
  3. REM Support BBS: ACHERON! WildCat 1.10 [801] 298-2812 300/1200/2400 Baud (9600 Someday)
  4. REM         For ALL of your WILDCAT Doors/Door Utils/Door Helps...
  5.  
  6. REM *** This Logic must be $INCLUDED:  at the beginning of your prg!
  7. REM     Do a GOSUB setup
  8. REM *** It is VERY important to put a line 9, with the name of your door
  9. REM  ** In the variable DOOR.NAME$, or this logic may fail!!! **
  10.  
  11. SETUP:
  12. COLOR 12,0
  13.  
  14.  
  15.  
  16.   DEF FNTI! = CSNG(FIX((VAL(MID$(TIME$,1,2))*60*60) + _
  17.               (VAL(MID$(TIME$,4,2))*60)+(VAL(MID$(TIME$,7,2))*1)))
  18.   RANDOMIZE TIMER
  19.   KEY(1) ON
  20.   KEY(2) ON
  21.   KEY(8) ON
  22.   KEY(10) ON
  23.   ON KEY(1) GOSUB Fkey
  24.   ON KEY(2) GOSUB Dropdos
  25.   ON KEY(8) GOSUB Forceoff
  26.   ON KEY(10) GOSUB Chatter
  27.   FALSE = 0
  28.   TRUE = NOT FALSE
  29.   DIM WC$(29)
  30.   ON ERROR GOTO Err.routine
  31.   GOSUB Read.command
  32.   SNOOP=-1
  33. PARAM$=COMMAND$
  34.  
  35. 2 OPEN PARAM$ FOR INPUT AS #1
  36.   INPUT #1,COM.PORT$
  37.   INPUT #1,BBS.NAME$
  38.   INPUT #1,SYSOP.FIRST$
  39.   INPUT #1,SYSOP.LAST$
  40.   INPUT #1,CALL.INFO$
  41.   CLOSE #1
  42.   gosub read.def
  43.   OPEN CALL.INFO$ FOR INPUT AS #1
  44.   FOR T=1 to 28
  45.    INPUT #1,WC$(T)
  46.   NEXT T
  47.  
  48.   CLOSE #1
  49.   IF WC$(7)="COLOR" then gosub graphix
  50.   IF WC$(7)<>"COLOR" then gosub noansi
  51.   IF COM.PORT$="com1" or COM.PORT$="Com1" then COM.PORT$="COM1"
  52.   IF COM.PORT$="com2" or COM.PORT$="Com2" then COM.PORT$="COM2"
  53.   IF WC$(2)="0" THEN BP$="2400"
  54.   IF WC$(2)="1" THEN BP$="300"
  55.   IF WC$(2)="2" THEN BP$="1200"
  56.   IF WC$(2)="3" THEN BP$="9600"
  57.    FIRST$=WC$(1)
  58.    LAST$=""
  59.   I = 0
  60.   LFEED = 1
  61. IF VAL(LEFT$(WC$(28),1))=7 THEN PAR$ = ",E,7,1,CS,DS,CD" _
  62.   ELSE PAR$=",N,8,1,CS,DS,CD"
  63.   
  64.   SYS.OP = 0
  65.   CR$ = CHR$(13)
  66.   LF$ = CHR$(10)
  67.   CS$ = CHR$(12)
  68.   BK.ARW$ = CHR$(29) + " " + CHR$(29)
  69.   BACK.SP$ = CHR$(8) + " "
  70.   IF WC$(28)="LOCAL" THEN COM.PORT$="COM0":L.OCAL=1
  71.   IF FIRST$ = "SYSOP" THEN _
  72.      GOSUB Sysop.name
  73.   IF COM.PORT$ = "COM0" THEN
  74.      PRINT "LOCAL WORKSTATION MODE!"
  75.      L.OCAL = 1
  76.   END IF
  77.   IF L.OCAL <> 1 THEN
  78.      OPEN COM.PORT$ + ":" + BP$ + PAR$ AS #3
  79.   END IF
  80.   GOSUB INDOOR
  81.